

*** Syntax for analyses of individual-level data

*** Use data file 'Individual-data.dta' with this syntax



* Figure 2

ttest mean_neg2==mean_pos2 if wp_right2_dichox==0
ttest mean_neg2==mean_pos2 if wp_right2_dichox==1

ttest mean_dif2, by(wp_right2_dichox)



* Table 2

quietly regress mean_dif2 wp_right2 female age income university 
estimates store A
esttab A , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2 r2_a N)

regress mean_dif2 wp_right2 female age income university, beta

egen wp2 = std(wp_right2)
egen md2 = std(mean_dif2)

regress md2 wp2 female age income university



* Figure 6


ttest mean_ph_neg_all==mean_ph_pos_all if wp_right2_dichox==0
ttest mean_ph_neg_all==mean_ph_pos_all if wp_right2_dichox==1

ttest mean_ph_dif_all, by(wp_right2_dichox)



* Table 5 Column 1

quietly regress mean_ph_dif_all wp_right2 female age income university  
estimates store A
esttab A , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2 r2_a N)

regress mean_ph_dif_all wp_right2 female age income university, beta

egen mp2 = std(mean_ph_dif_all)

regress mp2 wp2 female age income university 



* Appendix Ideology Alphas

alpha wp_abortion wp_capitalism wp_gaymarriage wp_guncontrol wp_milspend wp_patriotism wp_socialism if country2=="BR"
alpha wp_abortion wp_capitalism wp_cencorship wp_deathp wp_gaymarriage wp_milspend wp_obedience wp_patriotism wp_socialism wp_taxcuts if country2=="CA.e" | country2=="CA.f"
alpha wp_abortion wp_capitalism wp_cencorship wp_deathp wp_gaymarriage wp_immigration wp_milspend wp_obedience wp_patriotism wp_socialism if country2=="CH"
alpha wp_cencorship wp_obedience wp_patriotism wp_women if country2=="CN"
alpha wp_capitalism wp_deathp wp_guncontrol wp_immigration wp_milspend wp_obedience wp_pollution wp_socialism wp_taxcuts if country2=="DK"
alpha wp_capitalism wp_cencorship wp_deathp wp_gaymarriage wp_immigration wp_milspend wp_obedience wp_patriotism wp_pollution wp_socialism wp_taxcuts wp_women if country2=="FR"
alpha wp_deathp wp_gaymarriage wp_obedience wp_patriotism wp_taxcuts if country2=="GH"
alpha wp_abortion wp_cencorship wp_deathp wp_gaymarriage wp_milspend wp_obedience wp_patriotism wp_taxcuts if country2=="IN"
alpha wp_abortion wp_cencorship wp_gaymarriage wp_immigration wp_milspend wp_women if country2=="IS.j"
alpha wp_abortion wp_deathp wp_gaymarriage wp_immigration wp_milspend wp_patriotism wp_socialism if country2=="IS.p"
alpha wp_abortion wp_capitalism wp_cencorship wp_deathp wp_immigration wp_milspend wp_obedience wp_patriotism wp_pollution wp_women if country2=="IT"
alpha wp_capitalism wp_cencorship wp_deathp wp_gaymarriage wp_immigration wp_obedience wp_patriotism wp_women if country2=="JP"
alpha wp_capitalism wp_cencorship wp_deathp wp_gaymarriage wp_milspend wp_obedience wp_patriotism wp_pollution wp_socialism wp_taxcuts if country2=="NZ"
alpha wp_abortion wp_cencorship wp_gaymarriage wp_obedience wp_patriotism wp_taxcuts if country2=="RU"
alpha wp_cencorship wp_obedience wp_patriotism wp_taxcuts if country2=="SE"     
alpha wp_capitalism wp_deathp wp_gaymarriage wp_guncontrol wp_immigration wp_milspend wp_obedience wp_patriotism wp_socialism wp_taxcuts if country2=="SW"
alpha wp_abortion wp_capitalism wp_cencorship wp_gaymarriage wp_immigration wp_milspend wp_obedience wp_patriotism wp_taxcuts wp_women if country2=="UK"
alpha wp_abortion wp_capitalism wp_deathp wp_gaymarriage wp_guncontrol wp_immigration wp_milspend wp_obedience wp_patriotism wp_pollution wp_socialism wp_taxcuts if country2=="US"
  

  
* Figure A1

gen left_right3 = .
replace left_right3 = 0 if left_right2 < .5 & left_right2~=.
replace left_right3 = .5 if left_right2==.5 & left_right2~=.
replace left_right3 = 1 if left_right2 > .5 & left_right2~=.

bysort country2: tab left_right3


  
* Table A1

sum age female income university english_prof wp_right2

bysort country2: sum age female income university english_prof wp_right2



* Table A3 Row 1

quietly regress mean_dif2 wp_right2 female age income university 
estimates store A
quietly regress mean_dif3 wp_right2 female age income university 
estimates store B
esttab A B , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2 r2_a N)


  
* Table A4 Row 1 

quietly regress mean_ph_dif_all wp_right2 female age income university  
estimates store A
quietly regress mean_ph_dif3_all wp_right2 female age income university  
estimates store B
quietly regress mean_ph_dif2_all wp_right2 female age income university  
estimates store C
esttab A B C , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2 r2_a N)


		
* Table A6 Row 1
  
  gen right2 = .
  replace right2= wp_right2
  quietly regress mean_dif2 right2 female age income university  
  estimates store A
  replace right2= wp_right2_dicho2
  quietly regress mean_dif2 right2 female age income university  
  estimates store B  
  replace right2= wp_right2_dichox
  quietly regress mean_dif2 right2 female age income university  
  estimates store C
  replace right2= left_right2
  quietly regress mean_dif2 right2 female age income university  
  estimates store D
  replace right2= left_right2_dichox
  quietly regress mean_dif2 right2 female age income university  
  estimates store E 
  replace right2= ideo_right2
  quietly regress mean_dif2 right2 female age income university  
  estimates store F
  replace right2= ideo_right2_dichox
  quietly regress mean_dif2 right2 female age income university  
  estimates store G  
  esttab A B C, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g)  
  esttab D E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g)  

  
  
* Table A6 Row 4 

  replace right2= wp_right2
  quietly regress mean_ph_dif_all right2 female age income university  
  estimates store A
  replace right2= wp_right2_dicho2
  quietly regress mean_ph_dif_all right2 female age income university  
  estimates store B
  replace right2= wp_right2_dichox
  quietly regress mean_ph_dif_all right2 female age income university  
  estimates store C
  replace right2= left_right2
  quietly regress mean_ph_dif_all right2 female age income university  
  estimates store D  
  replace right2= left_right2_dichox
  quietly regress mean_ph_dif_all right2 female age income university  
  estimates store E
  replace right2= ideo_right2
  quietly regress mean_ph_dif_all right2 female age income university  
  estimates store F
  replace right2= ideo_right2_dichox
  quietly regress mean_ph_dif_all right2 female age income university  
  estimates store G
  esttab A B C, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g)  
  esttab D E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g)  

	 
 
* Table A7
  
regress mean_dif2 wp_right2 female age income university  
regress mean_dif2 wp_abortion female age income university   
regress mean_dif2 wp_capitalism female age income university  
regress mean_dif2 wp_cencorship female age income university  
regress mean_dif2 wp_deathp female age income university  
regress mean_dif2 wp_gaymarriage female age income university  
regress mean_dif2 wp_guncontrol female age income university  
regress mean_dif2 wp_immigration female age income university  
regress mean_dif2 wp_milspend female age income university  
regress mean_dif2 wp_obedience female age income university  
regress mean_dif2 wp_patriotism female age income university  
regress mean_dif2 wp_pollution female age income university  
regress mean_dif2 wp_socialism female age income university  
regress mean_dif2 wp_taxcuts female age income university  
regress mean_dif2 wp_women female age income university 
  
regress mean_ph_dif3_all wp_right2 female age income university  
regress mean_ph_dif3_all wp_abortion female age income university   
regress mean_ph_dif3_all wp_capitalism female age income university  
regress mean_ph_dif3_all wp_cencorship female age income university  
regress mean_ph_dif3_all wp_deathp female age income university  
regress mean_ph_dif3_all wp_gaymarriage female age income university  
regress mean_ph_dif3_all wp_guncontrol female age income university  
regress mean_ph_dif3_all wp_immigration female age income university  
regress mean_ph_dif3_all wp_milspend female age income university  
regress mean_ph_dif3_all wp_obedience female age income university  
regress mean_ph_dif3_all wp_patriotism female age income university  
regress mean_ph_dif3_all wp_pollution female age income university  
regress mean_ph_dif3_all wp_socialism female age income university  
regress mean_ph_dif3_all wp_taxcuts female age income university  
regress mean_ph_dif3_all wp_women female age income university 
    
regress mean_ph_dif2_all wp_right2 female age income university  
regress mean_ph_dif2_all wp_abortion female age income university   
regress mean_ph_dif2_all wp_capitalism female age income university  
regress mean_ph_dif2_all wp_cencorship female age income university  
regress mean_ph_dif2_all wp_deathp female age income university  
regress mean_ph_dif2_all wp_gaymarriage female age income university  
regress mean_ph_dif2_all wp_guncontrol female age income university  
regress mean_ph_dif2_all wp_immigration female age income university  
regress mean_ph_dif2_all wp_milspend female age income university  
regress mean_ph_dif2_all wp_obedience female age income university  
regress mean_ph_dif2_all wp_patriotism female age income university  
regress mean_ph_dif2_all wp_pollution female age income university  
regress mean_ph_dif2_all wp_socialism female age income university  
regress mean_ph_dif2_all wp_taxcuts female age income university  
regress mean_ph_dif2_all wp_women female age income university 
  	
                             
  
* Table A8 Row 1

quietly regress mean_dif2 wp_right2 female age income university 
estimates store A
quietly regress mean_dif2 wp_right2 female age income university if wp_right2_ext==1
estimates store B
quietly regress mean_dif2 wp_right2 female age income university if political_interest_dichox==1
estimates store C
esttab A B C, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2 r2_a N)

regress mean_dif2 wp_right2 female age income university if political_interest_dichox==1, beta

regress md2 wp2 female age income university if political_interest_dichox==1



* Table A8 Row 4

quietly regress mean_ph_dif_all wp_right2 female age income university  
estimates store A
quietly regress mean_ph_dif_all wp_right2 female age income university if wp_right2_ext==1
estimates store B
quietly regress mean_ph_dif_all wp_right2 female age income university if political_interest_dichox==1
estimates store C
esttab A B C , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2 r2_a N)
      
    
